This forum is closed to new posts and
responses. Individual names altered for privacy purposes. The information contained in this website is provided for informational purposes only and should not be construed as a forum for customer support requests. Any customer support requests should be directed to the official HCL customer support channels below:
Re: Agent Not Working - Solved ~Andy Asanuzenings 19.Nov.03 07:39 AM a Web browser Domino Server 6.0.1Windows 2003
Found the solution, just to share here.
Created new database on server with the following agent. Works fine. Tks all.
Sub Initialize
Dim ses As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim doc As NotesDocument
Set db=ses.GetDatabase("servername","Mail.box")
Set view=db.GetView("Mail")
Set doc=view.GetFirstDocument
Do While Not doc Is Nothing
If doc.RoutingState(0)="HOLD" Then
Call doc.RemoveItem("SaveOptions")
doc.RoutingState=""
If doc.HasItem("RoutingState") And doc.RoutingStateBy(0) <> "" Then
Call doc.ReplaceItemValue("Form",doc.Form(0))
Else
If doc.HasItem("MailSavedForm") And doc.MailSavedForm(0) <> "" Then
Call doc.ReplaceItemValue("Form",doc.MailSavedForm(0))
Else
If doc.HasItem("AppointmentType") Then
Call doc.ReplaceItemValue("Form","Notice")
Else
Call doc.ReplaceItemValue("Form","Memo")
End If
End If
End If
doc.Hops=25
Call doc.RemoveItem("RoutingStateBy")
End If
Call doc.Save(True,False)
Set doc=view.GetNextDocument(doc)
Loop
Call db.Close
End Sub
Return to top
. . . . Re: Agent Not Working - Solved (~Andy Asanuzeni... 19.Nov.03) 
Print this page
